home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Extended Sample / UnitObjectResultSetEmployee.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-05-19  |  1.1 KB  |  48 lines
  1. unit UnitObjectResultSetEmployee;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   UnitObjectResultSetBase, Db, DBTables;
  8.  
  9. type
  10.   TObjectResultSetEmployee = class(TObjectResultSetBase)
  11.     QueryEmpNo: TIntegerField;
  12.     QueryLastName: TStringField;
  13.     QueryFirstName: TStringField;
  14.     QueryPhoneExt: TStringField;
  15.     QueryHireDate: TDateTimeField;
  16.     QuerySalary: TFloatField;
  17.   private
  18.     { Private declarations }
  19.   protected
  20.     function GetSqlSelectClause: string; override;
  21.     function GetSqlFromClause: string; override;
  22.     function GetSelectedRecordKey: integer; override;
  23.   public
  24.   end;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. { TObjectResultSetEmployee }
  31.  
  32. function TObjectResultSetEmployee.GetSelectedRecordKey: integer;
  33. begin
  34.   Result := Query.FieldByName('EmpNo').AsInteger;
  35. end;
  36.  
  37. function TObjectResultSetEmployee.GetSqlFromClause: string;
  38. begin
  39.   Result := 'employee.db';
  40. end;
  41.  
  42. function TObjectResultSetEmployee.GetSqlSelectClause: string;
  43. begin
  44.   Result := '*';
  45. end;
  46.  
  47. end.
  48.